متن برنامه:

cls

12

input "a=",a

input "b=",b

let c = 0

let x = a

let y = b

10

let c = a mod b

let a = b

let b = c

if c > 0 then

goto 10

else

print "b.m.m="; a

end if

print "k.m.m"; (x * y) / a

print "aya edam midhid

print "1.yes

print "2.no

input "add ra bnvisd=",ali

if ali = 1 then

goto 12

else

print "ba tshkr

end if

end

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: